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TITLE 

NUMBER OF WORDS 

TIME 

PURPOSE 

ACCURACY 



TEMPORARY STORAGE 
METHOD OF USE 



RESULT 



PRESET PARAMETERS 



Arc Tangent Auxiliary to the Floating Point Routine (DOI or 

48 words J ""^ 

15 milliseconds 

To determine the arc tangent of a number in the floating 

accumulator 

Same as that of the floating point program,. i.e v Library 

Routine A 1* Possible error + 1 in the 9th decimal 

place . 

0, 1, 2 

The routine is entered with the argument in the floating 

accumulator in standard form. Entry from A lis made 

with an 8j order. 

The program should contain Library Routines A 1 
and A 3 at locations decided by parameters as shown 
below* 

After calculation control is returned to word 19 of 
Library Routine A 1. 

The results remain in the floating accumulator in the 
standard form, i.e*j exponent in IS 3 and one -half the 
fraction in S3, Answers are all modulo it and lie in 
the range - jc/2 < < x/2 . 



S 3, 1 S 3 
S k 
S 5 



Floating accumulator 
first word of A 1 
first word of A 3 
RT: 10/8/59 



DATE n/9/54 Rt; 6/5/58 
PROGRAMMED B Y Lily Seshu 
APPROVED BY J« P. Nash 



LOCATION 


OKBS? 


C 


00K(TA2) 
^-1 IF 




LI S3 


1 


32 2L 




L7 37L 


2 


22 3L 




ko S3 


3 


L3 37L 




^0 37L 


k 


LI 1S3 




Lk k±8k 


5 


32 9L 




Fk l$QSk 


6 


^0 1S3 




L5 33S4 


7 


66 S3 




S5 F 


8 


10 2F 




kO S3 


9 


lj-9 if 




50 9L 


10 


26 S5 




S9 ^OL 


11 


SO F 




40 2F 


12 


36 16L 




11 IF 


13 


SJ F 




40 F 


Ik 


I£ 2F 




10 2F 


15 


66 f 




26 i8l 


16 


L3 IF 




32 17L 


17 


22 12L 




if9 k6L 



NOTES 



PAGE 1 



TA 2 



Replace x by |x | and take note of sign 



If exponent is > 1, form l/ |x | . Denote 
new argument by |x|* and place l/2 in IF 



|x I * in machine form 



If |x| > 1/2 form 

1/2 taa [tan* 1 X/Z ~ |x|*] 



LOCATION 


ORDER 


NOTES PAGE 2 


18 


S5 F 








40 F 






19 


7J F 
00 2F 






20 


ll-O 2F 
L5 10L 






21 


k2 22L 








50 39L 






22 


7J 2F 






; 


I* ( )L 






23 


kO kjL 
50 kjL 






2k 


F5 22L 




Calculate arc tangent 




k2 22L 






25 


LO 36L 








36 22L 




■ 


26 


L3 k6h 








36 28L 




■ 


27 


7J S3 
26 30L 






28 


L5 ^lS^ 
kO 1S3 






29 


79 F 








iM- 38L 






30 


kO S3 








L5 37L 






31 


32 32L 








LI S3 




Restore sign 


32 


kO S3 








L3 IF 




Was |x | > 1? 


33 


36 35L 
L5 37L 






3^ 


LO S3 

kO S3 




If |x| > 1 


35 


kl kGh 
26 19Si+ 







TA 2 



LOCATION 


ORDER 


NOTES 
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36 


LJ 2F 

l4 46l 


End constant for tan" series 




37 


kO F 

00 2853 98l6 3397J 






38 


00 F 








00 2318 2380 450U 




: 


39 


00 F 








00 3835 4^64 687J 






4o 


NO F 








00 4204 5564 89OU 




: 


4l 


00 F 








00 1093 1855 0894J 






42 


NO F 






■ 


00 3572 9264 9705J 






k3 


00 F 








00 1999 9394 4717J 






Mi 




^nvie+Qri + o -Prw* ooyioc 






00 1666 6675 9283J 






45 


40 F 




• ■ 




00 4999 9999 9767J 




■ 


46 


00 F 








00 F 






^7 


00 F 








00 F 







TA 2 



